home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Scope / Scope Disk #058 (199x)(Scope PD)(US)[WB].zip / Scope Disk #058 (199x)(Scope PD)(US)[WB].adf / B1Subs / BorderColor (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-01-24  |  897b  |  48 lines
  1.  
  2. 'WINDOW 2,,(20,20)-(500,160),18
  3. LIBRARY "intuition.library"
  4. DECLARE FUNCTION SizeWindow& LIBRARY
  5. DECLARE FUNCTION MoveWindow& LIBRARY
  6. 'WINDOW OUTPUT 2
  7. MyWindow&=WINDOW(7)
  8. TxtPen&=MyWindow&+98
  9. BlockPen&=MyWindow&+99
  10. POKE BlockPen&,0
  11. RefreshWindowFrame&(MyWindow&)
  12. 'WHILE INKEY$<>" ":WEND
  13. X&=SizeWindow&(MyWindow&,-5,-5)
  14. 'POKE BlockPen&,1
  15. WHILE Here=0 
  16.     xy=MOUSE(0)            
  17.     X=MOUSE(1)
  18.     y=MOUSE(2)
  19.  
  20.     xdif%=2*SGN(X-ox)
  21.     ydif%=SGN(y-oy)
  22.     
  23.     ox=X
  24.     oy=y
  25.     IF MOUSE(0)<>0 THEN
  26.       CIRCLE(X,y),RND*50+30,RND*2.5+1
  27.       POKE TxtPen&,RND*3.5
  28.       POKE BlockPen&,RND*3.5
  29.       RefreshWindowFrame&(MyWindow&)
  30.     END IF 
  31.     
  32.     w=xdif%+ydif%
  33.     LOCATE 6+w,1
  34.     'IF w THEN
  35.       PRINT xdif%+ydif%
  36.       'MyWindow&=WINDOW(7)
  37.       'XX&=MoveWindow&(MyWindow&,xdif%,ydif%)
  38.     'END IF
  39.     IF INKEY$=" " THEN Here=1
  40.     
  41. ' OR have LEFT, GO and RIGHT buttons
  42.  
  43. WEND
  44.  
  45. WINDOW CLOSE 2
  46. LIBRARY CLOSE 
  47. END
  48.